HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/COM/Handy Mail 1.0b4 folder.sit/Handy Mail 1.0b4 folder/Handy Mail 1.0b5 Patch/Drag items to "Resources"/New Mail/stack.txt

Text File | 1996-01-31 | 3KB | 107 lines

-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x5C00 (can't delete, can't abort, can't peek)
-- protect password hash: 1638073505
-- maximum user level: 2 (typing)
-- window: Rect(x1=96, y1=108, x2=544, y2=372)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=448 h=264
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2669
-- card count: 1
-- first card id: 2968
-- list block id: 2049
-- print block id: 0
-- font table block id: 3523
-- style table block id: 3121
-- free block count: 0
-- free size: 0 bytes
-- total size: 9248 bytes
-- stack block size: 2560 bytes
-- created by hypercard version: 0x02208000
-- compacted by hypercard version: 0x02208000
-- modified by hypercard version: 0x02208000
-- opened by hypercard version: 0x02208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x3060E269
----- HyperTalk script -----
on openStack
  -- set hilite of bg btn id 43 to true
  -- send "mouseUp" to bg btn id 43
  select line 1 of bg btn id 45
  send "checkMType" to bg btn id 45

  click at the loc of bg fld id 38

  global mailGood
  put true into mailGood
end openStack

on closeStack
  global mailGood
  if mailGood then
    send "sendTheMail" to bg btn id 7
  end if

  put "" into bg fld "subject"
  put "" into bg fld "sendTo"
  put "" into bg fld "body"

  set cursor to watch
  set hilite of bg btn id 7 to false
end closeStack

on suspendStack
  -- close window (short name of this stack)
end suspendStack

on keyDown what
  if charToNum(what) = 3 then
    set hilite of bg btn id 7 to true
    send mouseUp to bg btn id 7
  else
    pass keyDown
  end if
end keyDown